home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #2 / Floppy_Magazine_88-2_1988_Megasystems_Oy_fi_Side_A.d64 / d&d aid ii (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  40 lines
  1. 0 ifp=0thenp=1:load" treasures4",8,1
  2. 1 sys53179:rem"[141][147]
  3. 2 [139]p[178]1[167]p[178]2:[147]" treasures5",8,1
  4. 3 [139]p[178]2[167]p[178]3:[147]" treasures6",8,1
  5. 4 [139]p[178]3[167]p[178]4:[147]" treasures8",8,1
  6. 5 [139]p[178]4[167]p[178]5:[147]" treasures9",8,1
  7. 6 [139]p[178]5[167]p[178]6:[147]" treasures7",8,1
  8. 7 [151] 53272,[194](53272) [176] 8:[143]"gosubload
  9. 8 poke 53265,peek(53265) or 32
  10. 9 sys28672:rem"[141][147]
  11. 10 [158]32704
  12. 11 [151] 53280, [194]( 17192 )
  13. 12 [161] a$: [139] a$ [178] "" [167] 12:[143]"gosubload
  14. 13 fori=0to28:poke54272+i,0:nexti:sys28737
  15. 14 poke 53265,peek(53265) and 223
  16. 15 poke 53272,peek(53272) and 247:rem"[141][147]
  17. 16 [153] "load":[151]53280,14
  18. 17 c[178]c[170]1:[143]"gosubload
  19. 18 print"[147]"
  20. 19 print"l[207]"chr$(34)" treasures1"chr$(34)",8,1[145][145][145][145]":gosub20:stop:rem"[147]
  21. 20 [151]198,7:[151]631,13:[151]632,147:[151]633,82:[151]634,117:[151]635,9:[151]636,31:[151]637,13:[142]
  22. 21 [143]"gosubload
  23. 22 "[141][147][158]
  24. 23 "(NULL)rogram: "" str$&str$ atnid right$right$ "
  25. 24 "
  26. 25 "
  27. 26 "atnuthor: (NULL)he peekalron + str$.(NULL)obbins
  28. 27 "
  29. 28 "
  30. 29 "     [212]his program is courtesy of:
  31. 30 "
  32. 31 "             [212]he [194]alron
  33. 32 "        (NULL)anhaistentie 14 (NULL) 186
  34. 33 "      00420 [200]elsinki 42, [198]inland
  35. 34 "         (NULL)hone: (90) 5630555
  36. 35 "
  37. 36 "(NULL)ew parts are about to be published for
  38. 37 "[195]ommodore-64 computer and disk drive.
  39. 38 "gosubcont
  40.